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ABSTRACT 



We examine the feasibility of an expert system to 
assist in the diagnosis of vehicle malfunctions. A passive 
expert planner is proposed that utilizes multiple domain- 
dependent knowledge bases. The system is implemented on a 
personal computer, and is based on general-purpose car 
repair manuals. An effort is made to quantify the amount of 
information processing necessary to adequately define the 
problem. The knowledge base and inference procedures for 
such a system are also presented. 
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I. INTRODUCTION 



A. BACKGROUND 

The goal of artificial intelligence (AI) is to develop 
computer programs that could in some sense think; that is, 
solve problems in a way that would be considered intelligent 
if done by a human. 

Artificial intelligence imitates both the basic problem 
solving and learning process of human beings. "In the 
sixties, AI scientists tried to simulate the complicated 
process of thinking by finding general methods for solving 
broad classes of problems; they used these methods in 
general-purpose programs. However, despite some interesting 
progress, this strategy produced no breakthroughs. 
Developing general-purpose programs was too difficult and 
ultimately fruitless." [Ref. 1] 

"It wasn’t until the late 1970s that AI scientists, 
began to realize something quite important: the problem- 
solving power of a program comes from knowledge it 



possesses , 


not just 


from 


the 


formalisms and 


inference 


schemes it 


employs . " 


[Ref . 


1] 


This realization 


led to the 



development of special-purpose computer programs, systems 
that were expert in some narrow problem area. These 
programs were called expert systems. This knowledge can 
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often be accessed much faster and with greater accuracy in a 
computer than from the human expert. 

Within the last few years, research in the field of 
artificial intelligence has grown significantly. Early 
pioneers of expert systems, such as MYCIN [Ref. 2] in the 
area of medical diagnosis, have proven successful enough to 
motivate the investigation of similar expert systems in 
others fields of study. One such product related to vehicle 
diagnosis, besides equipment maintenance expert systems in 
commercial and industrial environments, has recently been 
put into service by ANALYTICS; it is called AIJPA 
(Artificial Intelligence Job Performance Aid). 

B. OVERVIEW 

While vehicle repairs can be made by many people, 
accurate troubleshooting is a rare skill for the amateur and 
the professional alike. For that reason, a shortage of 
technical experts could have a drastic effect on the 
efficiency of equipment malfunction diagnosis. The 
personnel performing this task must possess both a good 
technical background and a great deal of training and 
experience on the particular equipment being repaired. 
Therefore, an expert system applied to vehicle diagnosis 
could improve job performance, with less maintenance cost. 
It will also help solve the lack of well-trained 
professionals . 
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Thus, the purpose of this thesis is to assess the 
feasibility of augmenting the mechanic with a computer in 
the maintenance of vehicle. Based on current diagnostic 
expert systems such as MYCIN [Ref. 2], our expert diagnosis 
system will contain a knowledge base obtained from technical 
manuals and expert mechanics. It should be possible for 
less-qualified mechanics to quickly and accurately assess 
vehicle malfunctions through interaction with the expert 
system . 

The particular objectives are as follows: 

1. Quantify, through the implementation, the amount of 
information processing necessary to sufficiently diagnose 
the vehicle malfunctions. 

2. Evaluate the problems encountered in implementation 
when a rule-based expert system is chosen as a basis. 

3. As far as the effectiveness of programming languages 
is concerned, evaluate the efficiency and ease of use of 
PROLOG throughout the implementation. 

The implementation of a small-scale expert diagnosis 
system demonstrates the feasibility of a larger-scale 
system. This implementation involves several sections of 
the engine system of the vehicle. The design is implemented 
in Arity Prolog [Ref. 3] on an IBM XT computer. 

Three assumptions have been made to simplify the 
implementation . 
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1. There is no partial certainty assigned to the 
existence of any individual malfunctions. 

2. All indications presented to the mechanic by test 
equipment are correct. 

3. There exists at least one malfunction. 
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II. BACKGROUND 



A. EXPERT SYSTEM CONCEPTS 

An expert system is an extensive body of knowledge 
about a specific problem domain. Characteristically, this 
knowledge incorporates facts and rules from human experts 
and written documentation, and is made available to users, 
applying some inference mechanism which governs those rules, 
to provide solutions to the problems brought by its users. 

1 . Features of Expert Systems 

As Forsyth [Ref. 4] lists some of the distinctive 
features of expert systems: 

a. An expert system is limited to a specific domain 
of expertise. 

b. It can reason with uncertain data. 

c. It can explain its reasoning path in a 
comprehensive way. 

d. The facts and inference mechanism are clearly 
separated. (Knowledge is not encapsulated into 
the deductive procedures.) 

e. It is designed to grow incrementally. 

f. It is typically rule-based. 

2 . Building an Expert System 

"The main players in the expert system environment 
are the expert system, the domain expert, the knowledge 
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engineer, the expert-system-building tool, and the end user 
[Ref. 1]. Their basic roles and their relationship to each 
other are summarized below. 

a. The Domain Expert : A person who, through years 

of training and experience, has become extremely 
proficient at problem solving in a particular 
domain . 

b. The Knowledge Engineer : A person who, with a 

background in computer science, knows how to 
build expert systems. The knowledge engineer 
interviews the domain expert, organizes the 
knowledge, and decides how it should be represen- 
ted in the expert system. 

c. The Expert-System-Building Tool : Both the pro- 

gramming language and support environment used by 
the knowledge engineer or programmers to build 
the expert system. 

d. End User : The person for whom the expert system 

was developed. 

3 . Expert System Architecture 

a . Knowledge Organization 

Expert systems need to be organized in an orderly 
manner to avoid confussion. In general, the 
knowledge is divided into three categories. 
[Ref. 4] 
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1. Factual Knowledge: This knowledge represents 

a particular case and is usually gathered 
through a dialogue with the user. 

2. Procedural Rule Knowledge: This knowledge is 
usually collected in advance from the domain 
specialist and forms the core of a knowledge 
base. This also forms the reasoning part of 
the system to infer conclusions. 

3. Control Knowledge: The system needs to have 

a variety of control strategies available to 
it so that alternatives can be tried out at 
run time. 

b . Procedural Knowledge 

The procedural knowledge most commonly used in 
current expert systems is a rule-based knowledge 
representation in the form of IF <condition> THEN 
<action> statements, as shown in Figure 2.1. 

IF 

1. STARTER TURNS BUT NOT THE ENGINE, and 

2. NO HIGH RESISTANCE TO MOVING ENGINE 

THEN 

CONCLUDE THAT THERE IS A MALFUNCTION IN 

STARTER UNIT 

Figure 2.1 Sample IF ...THEN ... INFERENCE RULE 



12 



When the current problem situation satisfies or 
matches the IF part of a rule, the action specified by the 
THEN part of the rule is performed. This matching of rule 
IF portions to the facts can produce what are called rule 
firings or inference chains. 

c . Control Knowledge 

The inference engine reasons and makes inferences 
based upon the application of rules and facts 
contained in the knowledge base. It 
accomplishes this through a control structure. 
There are many control structures implemented in 
current rule-based expert systems. 

One is known as backward chaining or 

goal-directed reasoning. This structure begins 
with the selection of a specific goal and then 
searches the rules to find those whose concequent 
actions can achieve that goal. Backward chaining 
is often a good control structure when there are 
more facts than final conclusions (goals). [Ref. 
5] 

Often, rule-based systems work from just a few 
facts but are capable of reaching many possible 
conclusions [Ref. 5]. For that reason, it makes 
more sense to match the rules to the state or 
the condition of facts and continually apply 
those rules to new states until the desired goal 
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is attained. This control structure is known as 



forward chaining or data-directed computation. 

Different control structure ideas can be combined 
in hybrid control structures. "Hybrids of 

forward and backward chaining, compromising on 
the advantages and disadvantages of both, are 
often used. The most common is the rule-cycle- 
hybrid control structure because it is easy to 
implement. With rule-cycle-hybrid , rules are 
tried in order as with backward chaining, but 
each rule is used in a forward-chaining way to 
assert new facts." [Ref. 5] 

d . Factual Knowledge 

A knowledge base contains facts, assertions, and 
rules. Some of the facts are short-term informa- 
tion that can change rapidly during the course of 
a consultation. Facts in a data base are normal- 
ly passive; they are either there or not there. 
A knowledge base, on the other hand, actively 
tries to fill in the missing information 

[Ref. 4]. 

e . User Interface 

Whatever the style of expert systems, they 
assume that information is provided manually 
through a question asking/answering dialogue, or 
automatically by means of sensors or other 
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devices. The interface is that part of the 
expert system which controls communication with 
the user. 

B. SUMMARY OF CURRENT KNOWLEDGE IN DIAGNOSIS 
1 . Theory of Diagnosis 

"In the theory and design of diagnostic reasoning 
systems, there appear to be two quite different approaches 
in the literature. In the first approach, often referred to 
as diagnosis from first principles, one begins with a 
description of some system with an observation of the 
system’s behavior. If this observation conflicts with the 
way the system is meant to behave, one is confronted with a 
diagnostic problem, namely, to determine those system 
components which, when assumed to be functioning abnormally, 
will explain the discrepancy between the observed and 
cor 3 ct system behavior. For solving this diagnostic 
problem from first principles, the only available 
information is the system description, i.e., its design or 
structure, together with the observation of the system 
behavior. In particular, no heuristic information about 
system failures is available, for example, of the kind when 
the system exhibits such and such aberrant behavior, then in 
90 percent of these cases , such and such components have 
failed." [Ref. 6] An example is electronic equipment 

troubleshooting. 
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"Under the second approach to diagnostic reasoning, 
which might be described as the experiential approach, 
heuristic information plays a dominant role. The 
corresponding diagnostic reasoning systems attempt to codify 
the rules of thumb, statistical intuitions, and past 
experience of human diagnosticians considered experts in 
some particular task domain. The structure or design of the 
corresponding real-world system being diagnosed is only 
weakly represented, if at all. Successful diagnosis stem 
from the codified experience of the human expert being 
modeled, rather than from what is often referred to as deep 
knowledge of the system being diagnosed." [Ref. 6] A 
notable example is the MYCIN system. 

2 . The Behavior of the Diagnostic Reasoning Task 

"Engineers and scientists constantly strive to 
understand the differences between physical systems and 
their models. Engineers troubleshoot mechanical systems or 
electrical circuits to find broken parts. Many everyday 
common-sense reasoning tasks involve finding the difference 
between models and reality." [Ref. 7] 

Diagnostic reasoning requires a means of assigning 
credit or blame to parts of the model based on observed 
behavioral discrepancies. If the task is troubleshooting 
then the model is presumed to be correct and all model 
system differences indicate part malfunctions, as shown in 
Figure 2.2. [Ref . 7] 
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MODEL 



STRUCTURAL 

DISCREPANCY 



A 



SYS 



EM 









PREDICTED BEHAVIORAL OBSERVED 

BEHAVIOR > DISCREPANCY > BEHAVIOR 



Figure 2.2 Model-System Difference 

Usually, the initial evidence does not imply a 
unique explanation. Then the diagnosis requires two phases. 
The first, mentioned above, identifies the set of possible 
model-system differences. The second proposes evidence- 
gathering tests to refine the set of possible model-sytem 
differences until they accurately reflect the actual 
differences. [Ref. 7] 

"When these theoretical principles are applied in 
practice, it is important to note that experts seldom solve 
problems using a rigorous theoretical analysis; rather, 
their understanding has a more ad hoc character. Some 
excellent troubleshooting technicians, for instance, use 
very little theory. Yet, by using their own simpler 
conceptual models, they can troubleshoot a faulty device 
quite efficiently." [Ref. 8] 

The thought process of a typical human expert for an 
engine under diagnosis is: 
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a. Observe the behavioral discrepancies. 

b. Identify the subsections of the engine system 
which may explain the behavioral discrepancies, 
using the structural definitions of system 
model . 

c. Starting from the most problem-related 

subsection, search a known fault data base within 
that subsection, to figure out the relevant 
faults using heuristic information. 

d. Find a method supported by procedural information 
to test and prune the possible faults. 

3 . Concept of the Diagnosis of Vehicle Malfunctions 

The familiar example of a car engine system is 
chosen as a model for the implementation of a small-scale 
system which will diagnose vehicle malfunctions. 

To gather information pertaining to procedural 
knowledge from sources and convert them into facts and rules 
format, it is essential to study car repair guides which are 
a good source of information for how knowledge should be 
represented. An engine system is composed of five major 
subsections [Refs. 9, 10]: 

1. Battery section. 

2. Cranking/Starter section. 

3. Ignition section. 

4. Fuel section. 

5. Compression section. 
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And engine malfunctions can be separated into two 
general groups: 

1. Engine will not start. 

2. Engine performs poorly. 

A common approach in the troubleshooting sections of 
car repair guides is to use charts of the most common 
symptoms of engine malfunctions. For each symptom, relevant 
subsystems of the engine system are indexed as in Figure 
2.3. 



PROBLEM: SYMPTOM 



BEGIN AT SPECIFIC SUBSYSTEM 



Engine Will Not Start 

Starter does not turn 
Starter turns, engine 
doesn ’ t 

Starter turns engine 
very slowly 
Engine fires 
intermittently 

Engine Performs Poorly 

Hard Starting 
Rough idle 

Backfire through the 
carburetor 

Backfire through the 
exhaust 

31ue exhaust gases 
Black exhaust gases 



Battery, Starter 
Starter 

Battery, Starter 
Ignition 



Ignition, Fuel 
Ignition, Fuel 
Fuel, Ignition, 
Compression 
Fuel, Ignition, 
Compression 
Compression 
Fuel 



Figure 2.3 Index to Problems 



The 

subsystem . 



user is expected to proceed to an indexed 
Sections are arranged so that following each 
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test, instructions are given to proceed to another, until a 
problem is diagnosed. For instance, in the sample for 
ignition section shown in Figure 2.4: 



TEST AND 




RESULTS AND 






PROCEED 


PROCEDURE 




INDICATIONS 






TO 


Check for spark 


> 


If no spark 


is evident 


4.2 


Hold each spark 


> 


If spark is 


good 


in 


4 . 3 


plug wire approx- 




some cases 








imately 1/4" from 
ground with gloves 
or a heavy, dry 
rag. Crank the 
engine and observe 
the sDark. 




If spark is 


good 


all 


4 . 6 



Figure 2.4 Sample Section 

This type of approach shows a decision lattice 
representation, a strictly procedural nature. However, 
decision lattices are better for troubleshooting manuals 
than for computers. Despite some of the benefits of 

decision lattices in terms of ease of implementation and the 
minimal numbers of questions necessary to establish 
conclusions, they shouldn’t be considered as general 
structure for an expert system due to some of the following 
disadvantages as stated by Rowe [Ref. 5]; 

1. They can’t always reason efficiently. 

2. They are difficult to modify. 

3. They may be difficult to design, since at each 
point we have to determine the best question to 
ask . 
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Also, a human expert searching a known fault set for 
that subsystem uses heuristic information, and then tests 
and prunes until some is found, not a procedural method. 
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III. DESIGN AND IMPLEMENTATION 



This chapter describes what techniques were used to 
construct the expert system and why this particular 
implementation was chosen. 

A. PROGRAMMING LANGUAGE 

The computer programming language Prolog is quickly 
gaining popularity throughout the world, in artificial 
intelligence applications. Prolog is like logic in that it 
can infer solutions to problems. Prolog’s ability to infer 
solutions to problems changes the way in which programmers 
work. 

"Prolog has three positive features that give it key 
advantages over conventional programming languages. First, 
Prolog in syntax and semantics is so close to formal logic 
that programs are better understood and better maintained. 
Second, Prolog provides automatic backtracking, a feature 
that simplifies searching alternatives. Third, Prolog 
allows a procedure definition to be used for many different 
kinds of reasoning." [Ref. 5] 

The availability of a Prolog programming tool for the 
IBM XT was a very important factor in this implementation. 
The design was implemented with the Arity /Prolog interpreter 
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which is a product of Arity Corporation, designed to be a 
powerful, highly optimised, and extended version of Prolog. 

B . APPROACH 

What is expected from an expert system is to follow the 
thought process of a typical human expert. As expressed 
earlier, the design guidelines could be based on either 
moving from the first principles or applying the 
experiential approach. Moving from the first principles 
which would require cumbersome techniques to simulate the 
complex nature of engine system, and so is unappl icable . 
Since both a wide variety of general-purpose car 
repair/diagnosis books and the past technical experience of 
the designer in engine maintenance field are available, the 
experiential approach was chosen. 

We next evaluated the quality of information available 
in repair books and converted it into the more-convenient 
rules and facts format. The design stages were decomposed 
in the order of thought processes of a typical human expert. 
The first thing to do was to introduce into the computer the 
observed behavioral discrepancies in some way. A 
troubleshooting chart which collected the most common 
symptoms under two general fault cases was mapped to 
computer so that when the program is executed, it gives a 
menu asking for the case, gets symptoms from the user, and 
caches them. 
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Once the symptoms are gathered interactively, the 
diagnostic reasoning process should start. For instance, 
suppose that a car engine will not start. There are 
numerous reasons that an engine will not start, from an 
electrical failure to a faulty fuel system. For that 
reason, the second step as followed by both a typical human 
expert and the troubleshooting charts is to identify the 
subsystems which may explain the behavior and sort them in a 
reasonable order. This was carried out by defining an 
embedded table of pairs, each illustrating subsystems for 
each symptom. 

For the third stage of the system-developing phase, 
following the procedural nature of troubleshooting charts 
was not appropriate as discussed in Chapter II. It was at 
this point that a human expert and troubleshooting charts 
differ from each other. Starting from the most problem- 
related subsystem, we needed to search a known fault 
database for that subsystem to find out faults which could 
account for the same behavioral discrepancies. At this 
point we needed a partitioned control structure. Technical 
and heuristic information of the engine system was divided 
into separate files containing rules and facts so that each 
group would have minimal interactions with other groups. 
One more partition was needed to hold the global data and 
general control structures. 
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Some subsections showed different implementation 
problems than others. For instance, due to the serialisable 
nature of defects in the battery section, each would show 
the same symptoms; an exhaustive search mechanism was used 
to test them in a reasonable order. On the other hand, a 
rule-cycle-hybrid control structure was used for the 

ignition system to test hypotheses. 

Since faults within each subsystem were unique to it, 
fault lists were used, as for instance: 

list_of_expected_diagnosis (battery, [case_cracked, 

case_intact, discharged_battery] ) . 

list_of_expected_diagnosis ( battery _cable_connections , 
[open_circuit , bad_cable_connections] ) . 

Testing a hypothetical or actual defect is the same. 
The human expert must find a method which will reveal 
whether it exists or not. For that reason, we have a list 
of some recommended methods gathered from repair books, for 
each defect under consideration, as in the following: 

recommended ( [visual_inspection , high_beam, voltmeter], 
battery, discharged_battery ) . 

recommended( [visual_inspection, voltmeter] , 
battery_cable_connections , open_circuit ) . 

Since we do not assign partial certainly to how precise a 
method is, our expert system attempts each method in turn. 

There are a couple of comments that we would like to 
emphasise. As could be noticed in the above format, the 
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same equipment can be used to verify more than one defect, 
but this is rare. That suggests unique definition and 
treatment for each operator. And each operator under 
consideration passes through the three unique steps : 

1. Satisfy Operator Preconditions : For each operator, 
a precondition list is formed, such that an 
operator would be applied only after achieving 
each member of precondition list. This means: 

- To check if an operator is available. 

- If an operator is available, to check 
if the user is capable of using this 
operator . 

- So as to avoid wrong conclusions, to 
check what other system components 
should be okay before applying the 
operator, taking into consideration the 
way the operator will be applied and the 
expected measurement. 

- And finally, to give precedence to 

system components which are 

preconditions of other components, to 
avoid unnecessary user dialogue. 

Some example preconditions: 
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preconditions ( visual_inspecton , battery _cable_ 

connections, open_circuit , [ ] ) . 

preconditions ( voltmeter , battery_cable_ 

connections, bad_cable_connections , [not 

(defective (battery)), not (electrical_circuit_ 
problem), not (unable_to_use (voltmeter))]). 

2. Procedure Test : Once the preconditions 

for an operator in use are accomplished, 
the specific procedure or method is 
diplayed . 

3. Verify Diagnosis : A specific 

measurement is gathered from the user, a 
measurement that should be consistent 
with the data previously displayed. 

In testing and pruning the possible defects, the 
diagnostic reasoning process will come to an end if some are 
found. Then the program displays verified diagnostic 
results, ordered by the number of methods used to prove 
them . 

C . KNOWLEDGE BASE 

As stated earlier, the knowledge base of our expert 
system is composed of partitions, each similar in structure. 
This enables us to maintain, update and debug easily only 
the necessary partitions. 
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Procedural knowledge and heuristic knowledge are the 
two types of information forming the knowledge base. As 

discussed before, there was an inadequate amount of 

heuristic information in the repair book in the BATTERY and 
STARTING sections, so the partitions of those subsystems 
were only procedural knowledge, whereas the IGNITION system 
is composed of both types of information. 

D. INFERENCE PROCEDURE 

Two different inference engines were applied in 

implementation. The procedure designated as inference- 
engine 1 in the GLOBAL file does an exhaustive search to 
test each defect in currently active knowledge base. 

For those partitions which are going to be driven by 
the exhaustive search mechanism, ordering the faults to be 
tested is important, for two reasons: 

1. It is a good idea to assign high priority to 

testing defects which are thought to be most 

likely . 

2. It is good to test preconditions of an operator 

before testing this operator. Otherwise, the 
expert system will be unfocussed among components 
to be verified. 

The second procedure is designated as inference-engine 
2 in the GLOBAL file. The rule-cycle-hybrid control 
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structure written, in Prolog, by Rowe [Ref. 5] is variant 
version of this procedure. Once hypotheses are gathered, 
inference-engine 2 activates a procedure which will test 
each hypothesis systematically . 

A sample rule written in a format recognisable by the 
rule-cycle-hybrid (from IGNITION knowledge base) is: 
hr: - not (hypothesis (incorrect (distributor_f iring_ 

sequence ) ) ) , 
fact (hard_starting) , 

fact (backf ire_through_the_carburetor ) , 
askif ( recent_operator_job) f 

asserta (hypothesis (incorrect ( distributor_f iring 
.sequence) ) ) . 

The rule order for rules governed by the rule-cycle- 
hybrid is important. A rule is given precedence in database 
order over the rules whose right sides mention a predicate 
to be asserted by it. 

E. USER INTERFACE 

Three modules are required to support our user 
interface. The first procedure ask— which in the GLOBAL file 
was written originally by Rowe [Ref. 5] but was adapted. 
The procedure ask-which gathers symptoms, behavioral 
discrepancies observed by user. When it is invoked, it 
gives a menu, four questions at a time, and asks which 
questions should be answered yes. After getting the 
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answers, the invoking procedure checks for contradictory- 
answers, consulting a table of contradictory sets. If there 
is some contradiction, the user is warned. When all done 
with input, the symptoms gathered are added to current 
database by the asserta built-in predicate. 

The second predicate askif of one argument was written 
originally by Rowe [Ref. 5] but, was adapted again with some 
minor modifications. This procedure gets virtual facts 
(facts demanded only when needed). The user is prompted by 
some question and is expected to answer either affirmatively 
or negatively. Otherwise it complains and asks for a 
reasonable answer. Also the answer is cached, so as to not 
ask the same question again. 

The third procedure is code-interpreter. This 
procedure displays the text of information related to a 
method to be followed by user to achieve a measurement. If 
the user is not satisfied with the information supplied, it 
gives the user further explanation, if available. 

F. MODULES 

Our expert system is made up of partitioned knowledge 
bases. While the knowledge bases for BATTERY, STARTER and 
IGNITION sections are fully implemented, each under the same 
filename as their section names, the knowledge bases for 
FUEL and COMPRESSION sections were not implemented due to 
time constraints. But to show the features and capability 
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of a vehicle diagnosis expert system, those unimplemented 
knowledge bases are suggested in the ENGINE partition for 
one particular fault case. 

The partitioned knowledge bases are necessary not only 
for ease of maintenance and debugging, but also to support 
different control structures for each. For that reason, 
rather than using the consult built-in predicate, a 
reconsult predicate (which replaces the predicates currently 
in database with new ones) is always used. 

One interesting and powerful feature of our expert 
system occurs when the rules belonging to current partition 
need to access momentarily some other partition for specific 
information about some component. Then the current process 
state is saved by the save built-in predicate, and the 
information referring to the current process state is pushed 
onto a process stack, and the new partition is brought in by 
the reconsult predicate. When all done, the original 
process state is resumed by the restore built-in predicate. 
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IV. CONCLUSIONS AND RECOMMENDATIONS 



A. CONCLUSIONS 

Arity/Prolog appears suitable for this implementation, 
and the rich built-in predicates available were helpful. 
However, the deficiency of error-checking mechanisms against 
minor misspellings leads to bizarre unintended effects. 

The reasoning process in repair manuals which is not 
suitable for computers was effectively converted into a 
rule-based model so that the thought process of a typical 
human expert was efficiently simulated. So a fully 
implemented diagnostic expert system could be used in place 
of a human expert. 

B. RECOMMENDATIONS 

As is clear from this thesis, a full implementation of 
our system is quite possible. A better diagnostic expert 
system could support a user by graphic enhancements. The 
location of a component, the necessary steps to access the 
component, and some specific procedures to make a 
measurement could be displayed to an unexperienced mechanic 
graphically . 

An expert system should be able to explain its 
reasoning path for teaching and debugging purposes. We 
could enhance our expert system with that feature. 
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APPENDIX A 



SflURCE.-Q.QDE 

This appendix contains a listing of the main program (held in the 
GLOBAL, BATTERY, STARTER, IGNITION, and ENGINE section files 
which contain the knowledge base of the expert system). 

This expert system implementation was written in the version of 
the PROLOG language known as ARITY-PROLOG (which is a product of 
Arity Corporation) and runs under the MS-DOS operating system on 
IBM PC/XT clones. This version of PROLOG is closely based on 
standards as described in Clocksin and Mellish [Ref. j_ 

Having entered the PROLOG, the program comes up with a short 
message about start-up and then the user starts the consultation with 
the query of “diagnosis.” The lines that are limited with “/*” are 
comment lines. They should not be confused with actual PROLOG 
code. 



Q/o THE FOLLOWING CONTAINS THE CONTENTS OF C.mRAf. FILE 



/‘•‘•MAIN PROGRAM**** 
cls.nl, nl.nl, 

write($ VEHICLE DIAGNOSIS EXPERT SYSTEM IMPLEMENTATION &). 
nl, 

write($ Please enter "diagnosis" to start the consultation. &), 
nl.nl.nl. 



/* 

The predicate “DIAGNOSIS’ is the top level predicate to start the expert system. 

/* 

diagnosis procedurejist (LIST). run_diagnosis(LIST), 
flndall (X,proved(diagnosis(X, Y)) ,L) , 
diagnosis likelihood_list(L,LM,LL), 
write($ MOST LIKELY DIAGNOSIS LIST : $). nl.nl. 
write_list(LM),wrlte($ LESS LIKELY DIAGNOSIS LIST :$). 
nl.nl, wrlte_list(LL). 



/* 

Having been supplied by the symptoms, by means of early dialogue with consultor, 
the problem state Is identified and relevant subsections of the engine system of the 
vehicle to be considered are held within a list, which is the argument of predicate 
“PROCEDURE-LIST” in a reasonable order. At this point, the general expert 
approach is to search those sections one by one in the order they were thought to be 
reasonable, until some specific diagnostics are found. 

r 

run_diagnosis(LIST) proved(diagnosis(Diagnosis, Equipment)). 

run_diagnosis((]). 

run_diangosis( [Section I Sections)) 

file_table(Section, Section_File) . 
write($*** $).write(Sectlon_File), 
write($ SECTION ***$),nl,nl 
reconsult(Section_File), 
restore_database(Section_File) 
section_engine_table(Section,Inference_Engine), 
call_engine(Inference_Engine) , 
run_diagnosis(Sections) . 
run_diagnosis([Section:Sections)) 

not(file_table(Section,Section_File)). 

write($*** $) .write (Section), 

write( has not been implemented yet. ***$), 

nl,run_diagnosis(Sections). 

call_engine(Inference_Engine) call(Inference_Engine). 
call_engine(Inference_Englne) . 

r 

The predicate “PROCEDURE-LIST” initiates the communication with consultor, 
using menu-driven interaction method, at the very early program stage, to obtain 
the symptoms to create existing facts and assess subsections of engine system to be 
considered related to problem state. 

r 



procedure_list(LIST) start_up_menu(Answer_List), 

create_facts(Answer_List) , 

list_finder(Answer_List.L),sort(L,Ll), 

!,list_converter(Ll,LIST). 



start_up_menu(Answer_List) repeat, 

[!ask_whlch((engine_wont_start, 
englne_runs_poorly] .List ! ) , 
not(contradiction(List)) , 
create_fact s(List) . ! . 
su b_menu (List ,Answer_List) . 

sub_menu(List j\nswer_List) member(engine_wont_start, List), repeat, 

[!ask_which([starter_doesnt_tum_at_all, 

starter_tums_but_not_the_engine, 

slow_cranking,normal_cranking,quick_cranking, 

englne_fires_intermittently, 

engine_fires_consistently),Answer_Llst)!], 

not(contradiction(Answer_List)). 

sub_menu(List.Answer_List) :-member(engine_runs_poorly, List), repeat. [! 

ask_which((hard_starting,rough_idle, stalling, 

engine_dies_at_high_speed, 

hesitation_on_acceleration, 

poor_pick_up,lack_of_power, 

backfire_through_the_carburator, 

backfire_through_the_exhaust, 

blue_exhaust_gases,black_exhause_gases, 

running_on,susceptible_to_moisture, 

misfire_under_load,englne_mlss_at_high_rpm, 

misfire_at_idle_speed| , 

Answer_List)!l,not(contradiction(Answer_List)). 



ask_which((A,B,C,DIL],List) 

screen_ask_which([A,B,C,D],(A,B,C,D),Lst). 

ask_which(L,Intlist),append(Lst,Intlist,List). 

ask_which(|),(]). 

ask_which(L.List) length(L,N),N<4,N>0, 

screen_ask_which(L,L,List). 

screen_ask_whlch([XI L),L2,Lst) length(L,N),length(L2,N2), 

N3 is N2-N,write(N3),write( , :’).questioncode(X,Q),wrlte(Q), 

wrlteC?'), nl,screen_ask_which(L,L2,Lst). 

screen_ask_which((),L2,Lst) 

write($ Give numbers of questions whose answer is yes.$), 
read(AL),nl,create_list(AL,L2,Lst). 

create_list((l ,L2 , ()) . 

create_list([N I L],L2,[I I L3]) item(N,L2,I), 

create_list(L,L2,L3). 

create_llst((NlL),L2,L3) not(item(N,L2,I)), 

create_list(L, L2 ,L3) . 



item(l,|XI L),X). 

item(N,[XIL],I) N>1,N2 Is N-l,item (N2.L.I). 



contradlction(List) length(Llst,N),N>l, 

contradictory_list(X,L) , 

[!member(X,List)!],not(list_done(|X],List,L)), 

message. 



llst_done(A,B,(]). 

list_done(A,B,(C I D]) unlon(A,[C],E),!,not(subset(E,B)), 

list_done(A,B,D). 



create_facts([]) !. 
create_facts(Fact I Answer_Llst]) 

asserta(fact(Fact)),crate_facts(Answer_List). 



llst_flnder([XILl].L) check_llst(X,List).list_flnder(Ll.L2). 

unlon(Llst,L2,L). 

list_finder([],[l). 

llst_converter([l,()). 

llst_converter(|XIL],[YlLl]) convert(X.Y). 

list_converter(L,Ll). 



r 

The complicated nature and peculiarities of subsections of the engine system 
necessitate more than one inference-engine to process the defined subsections. 
INFERENCE-ENGINE 1 simulates the role of “exhaustive-search-mechanism" for 
the section it was allowed to process. 

r 



inference.englne 1 not(all_done). 
all_done 

list_of_expected_diagnosis(Part,Expected_Diagnosis_List), 

attempt_to_verify_all(Part.Expected_Diagnosis_List),fail. 

attempt_to_verify_all(Part,|]). 

attempt_to_verify_all(Part. 

[First.Diagnosis I Expected_Diagnosis_Llstl) 
verify_diagnosis (Part ,First_Dlagnosis) , 
attempt_to_verify_all(Part,Expected_Diagnosis_List). 

verify_diagnosis(Part,First_Diagnosls) 

recommended(Equipment_List.Part.First_Dlagnosis), 

verlfy_uslng_all(Equipment_List,Part,First_Diagnosis). 

verify_using_all([),Part,First_Diagnosis). 

verify_uslng_all([Flrst_Equlpment:Equipment_Llst],Part, 



First_Diagnosis) 

a PPly_ e qulpment(First_Equipment,Part,Flrst_Diagnosis), 
verlfy_using_all(Equipment_List, Part, Firs t_Diagnosls). 



apply_equipment(First_Equipment,Part.First_Diagnosis) 

preconditionsfFirst-Equipment.Part.Flrst.Diagnosis, 

Precondition_List) , 

satisfied_preconditions(Precondition_List),find(Part), 
get_ready_equipment(First_Equipment, Part. First .Diagnosis), 
prove_diagnosis(First .Equipment, Part, First.Diagnosis). 

apply_equipment(First_Equipment,Part,First_Diagnosis) 

preconditions(First_Equipment,Part,First_Diagnosis. 

Precondition.List) , 

not(satisfied_preconditions(Precondition_List)). 

satisfied_preconditions([]). 

satisfied_preconditions([First_Precondition:Precondition_List]) 

call.precondition(First.Precondition), 

satisfied.preconditions(Precondition.List). 

prove_diagnosis(First_Equipment,Part,First_Diagnosis) 

proved_diagnosis(First_Equipment,Part,First_Diagnosis), 

update_diagnosis_database(First_Equipment.First_Diagnosis), 

prove_diagnosis(First_Equipment,Part,First_Diagnosis) 

not(proved_diagnosis(First_Equipment,Part,First_Diagnosis)). 
update_diagnosis_database(First_Equipment, First.Diagnosis) 
not(proved(diagnosis(First_Diagnosis,First_Equipment))), 
asserta(proved(diagnosis(First_Diagnosis,First_Equipment))). 
update_diagnosis_database(First_Equipment,FIrst_Diagnosis) 
proved(diagnosis(First_Dlagnosis,First_Equipment)). 



r 

The predicate “DIAGNOSIS’ of one argument searches for the malfunction in 
particular, provided that the name of the malfunction is supplied as its argument. 

r 

diagnosis(Diagnosls) proved(diagnosls(Diagnosis,X)). 
diagnosls(Daignosis) list_of_expected_diagnosIs(Part, 

Expected.Diagnosis.List) , 
member(DTagnosis.Expected_Diagnosis_List), 
verify _diagnosis(Part, Diagnosis) .!, 
proved(diagnosis(Diagnosis,X)). 



r 

INFERENCE-ENGINE2 simulates the role of “rule-cycle-hybrid control 
mechanism’ for the section it was allowed to process. 

r 

inference_engine2 hybrid, i.doall.until. 

done hypothesis(Diagnosis). 
hybrid done. 

hybrid not(one.cycle),flag,abolish(flag/0), hybrid, 
one.cycle :-hr,asserta(flag),fail. 



doall_untll doall,not(hypothesis(Diagnosis)). 



doall not(alltrled). 

alltrled : -call(test_hypothesls) .fail. 



test_hypothesis :-hypothesis(Diagnosis), 

[ ! ret ract (hyp oth esis(D iagnosis) ) ! ) . 
diagnosis(Diagnosis). 



/* 

The predicate “DIAGNOSIS-LIKELIHOOD-LIST” sorts the malfunctions whose 
existence has been proved by the expert system, and assigns them likelihoods 
according to the number of methods used to locate them. 

/* 



diagnosis_likelihood-list([], !],[]). 
diagnosis_likelihood_list([Xl,[],[Xl). 
diagnosis_likelihood_list(IX I L],(XI L2],L3) 

member(X,L),delete(X,L.Ll), 
diagnosis likelihood_list(Ll,L2,L3). 
diagnosis_likelihood_list([XI L1.L1.IXI L2)) 

not(member(X,L)) , 
dlagnosis_likelihood_llst(L,Ll,L2). 



r 

The predicate “ASKIF" of one input argument performs the interaction between 
expert system and consultor. It will have only one argument, the question, and it 
will succeed if that question is answered affirmatively and fail if the question is 
answered negatively. If an answer is unclear, it will complain and ask for another 
answer. 



asklf(A) 

ask(A,B), 

positive_answer(B) . 

asklfnot(A) 

not askiflA). 

ask(A,B) 

asked (A, B). 
ask(A,B) 

not askedCA.B), 

(questloncode(A,C);global_questioncode(A,C), 

wrlte(C), 

write($? (yes/no) — > $), 

read(D), 

nl, 

[! answer(D.B) 

!). 

not unexpected_answer(B), 
asserta(asked(A,B)). 



ask(A.B) 

not asked(A,B), 

not questloncode(A,C),not global_questloncode(A.C), 
wrlte(A), 

write($? (yes/no) => $), 

read(D), 

nl, 

[! answerlD.B) 

!]. 

not unexpected_answer(B), 
asserta(asked(A,B)). 



answer(A,B) 

not unexpected_answer(A), 
B=A 



answer(A,B) 

not unexpected_answer(A). 
repeat. 

wrlte($ Please answer yes or no ==> $), 

read(B). 

nl, 

not unexpect ed_answer(B). 

unexpected_answer(A) 
not afflrmatlve(Al, 
not negatlvelA), 

posltlve_answer(A) 

afflrmative(A). 



r 

The predicate "CODE-INTERPRETER" provides the consultor with the domain- 
dependent Information. 

r 

code_interpretertA) 

expressed(A). 

code_lnterpreter(A) 

not expressed (A), 

code(AB,C), 

wrlte(B), 

nl, 

asserta(expressedlA)) , 
further_explain(C). 

further_explaln($No more$) !. 

further_explaln (A) 

asklf[need_explain) . 
retract(asked(need_explain,B)) . 
write (A), 
nl. 

further_explain(A) 

asklfnot(need_explaln). 



retract(asked(need_explain,B)). 



delete(X,[),||). 

delete(X,(XIL),M) delete(X.L.M) . 
delete(X,[YIL|,[YIMl) delete(X,L.M). 

append([],L,L). 

append([XI L1|.L2,PCIL3)) append(Ll.L2.L3). 



subset([].A). 

subset([AI B1,C) member(A,C).subset(B,C). 

member(X.[XI L]). 
member(X,[YI LI) membertX.L). 

union([),X.X). 

unlon([XI R),Y.Z) member (X,Y),!,union(R,Y,Z). 
union ([XIR|.Y.[XIZ]) union(RY.Z). 

write_llst([)) !. 

write_list(|XI Y]) write (X),nl,write_list(Y). 
flrst([XI L|,X). 
second([X,Yl L),Y). 

/* 

The fact “CHECK— LIST" holds the list of subsections of engine system, determined 
hypothetically, concerning each specific symptom. 

r 

check_list(starter_doesnt_tum_at_all. ( 10,201). 

check_list(starter_tums_but_not-the_engine,[20|). 

check_list(slow_cranking.[ 10,20)). 

check_llst(normal_cranking,(30j). 

check_list(quick_cranking,[501). 

check_list(englne_fires_intermittently,[30]). 

check_list(engine_fires_consistently,(40,501). 

check_list(hard_starting,|30,40]). 

check_list(rough_idle,|30,40j). 

check_list(stalling, [30,40]). 

check_list(engine_dies_at_high_speed, [30,401). 

check_list(hesitatlon_on_acceleration, (30.40)). 

check_list(poor_pick_up. (30,401). 

check_lsit(lack_of_power, [30,40]). 

check_list(backflre_through_the_carburator,[30,70|). 

check_list(backfire_through_the_exhaust.[30.701). 

check_llst(blue-exhaust_gases, (50,601) . 

check_list(black-exhaust_gases,[40]). 

check_list(runnlng_on,[30]). 

check_list(susceptible_to_moisture.(301). 

check_list(misfire_under_load. [30. 60,701). 



check_list(englne_mlss_at_hlgh_rpm,[301). 
check_list(misfire_at_ldle_speed, [30,40. 60]). 

r 

The fact “CONTRADICTORY— LIST" holds the list of symptoms for each symptom, to 
establish that a symptom In question is a member of the set of possible symptoms. 

r 

contradlctory_llst(englne_wont_start,(englne_runs_poorly]). 

contradlctory_llst(starter_doesnt_tum_at_all. 

[starter_tums_but_not-the_englne.slow_cranklng. 

normal_cranklng,qulck_cranklng, 

engine_fires_lntermlttently. 

englne_flres_conslstently)). 

contradlctory_list(starter_tums_but_not_the_englne, 

[ slow_cra nklng , no rmal_c ranking , qulck_c ran king , 
e ngnie_flre s_lnt e rmitt e nt ly , 
englne_fires_conslsstently]). 

contradlctory_list(slow_cranklng,(normal_cranklng,qulck_cranklng]). 

contradictory_llst(normal_cranking,[quick_cranklng]). 

contradlctory_llst(englne_flres_lntermlttently, 

(englne_flres_conslstentlyl). 

contradlctory_list(blue_exhaust_gases,[black_exhaust_gasesl). 

convert( lO.battery). 
convert(20,startlng_system) . 
convert(30,lgnltlon_system). 
convert(40.fuel system), 
convert! 50, englne_compresslon). 
convert(60,engine_vacuum). 
convert(70, valve-train). 



flnd(sub_dlagnosis) . 
find(complete_system). 
fin d ( lgnit lo n_s wit c h) . 
flnd(Part) asklf(where(Part).!. 

flnd(Part) code_lnterpreter(Part),retract(asked(where(Part), 

X)),assert(asked(where(Part),yes)). 

unable_to_use(X) askifhot(has(X)). 
unable_to_use(X) askifnot(how_to_use(X,known)). 



afflrmative(yes). 
afflrmatlvey(y). 
afflrmatlve(rlght). 
affirmative (okay). 

negative(no). 

negatlve(n). 

negatlve(not). 



negatlve(never). 

negative(imposslble). 



global_questioncode(need_explain, 

$Do you need further explanations). 



global_questioncode(hear(X),X) 

global_questioncode(has(X),X) 



write($Did you hear a sound like a $). 

write($ Do you have a $). 



global_questioncode(how_to_use(X.Y),X) 

write($ Do you know how to use a $). 



global_questioncode(where (Part) , $$) : - 

write($Do you know where the $),write(Part),write($ is$). 
questioncode(engine_wont_start,$ Does the engine start at all$). 
questioncode(engine_runs_poorly,$ Does the engine run poorlyS). 
questioncode(starter_doesnt_tum_at_all. 

$ Does starter turn at all$). 
questioncode(starter_tums_but_not_the_engine. 

$ Does starter turn, but not the engineS). 



questioncode(slow_cranking, 

$ Does starter turn engine very slowlyS). 
questioncode(normal_cranking,$ Does starter turn engine normally^). 
questioncode(quick_cranklng.$ Does starter turn engine very quicklyS). 
questioncode(engine_fires_intermittently. 

$ Does engine fire IntermittentlyS). 
questioncode(engine_fires_consistently, 

$ Does engine fire consistently) . 

questioncode(hard_starting.$ Do you have hard starting problems) . 
questioncode(rough_idle.$ Do you have a rough idle$). 
questiocode(stalling,$ Do you have stalling$). 
questioncode(engine_dies_at_high_speed, 

$ Does engine die at high speed$). 
questioncode(hesitation_on_ acceleration. 

$ Do you have hesitation (on accelaration 
from standing stop)$). 

questioncode(poor_pick_up,$ Do you have poor pickup$). 
questioncode(lack_of_power,$ Do you have lack of power$). 
questioncode(backflre_through_the_carburator, 

$ Do you have backfire through the carburatorS). 
questioncode(backfire_through_the exhaust. 

$ Do you have backfire through the exhaust$). 
questioncode(blue_exhaust_gases.$ Do you have blue exhaust gasesS). 
questioncode(black_exhause_gases,$ Do you have black exhaust gases$). 
questloncode(runnlng_on,$ Do you have running on ( after the ignition 

is shut ofI)$). 

questioncode(susceptible_to_moisture,$ Is it susceptible to moisture$). 
questincode(misfire_under_load,$ Does the engine misfire under load$). 
questioncode(englne_miss_at_high_rpm, 

$ Does the engine misfire at speed$). 
questioncode(mlsfire_at_idle_speed. 

$ Does the engine misfire at idle speed$). 



message wrlte($I found a contradlctlon!$),nl, 
wrlte($ Check and repeat your answer.$), 
nl. 



r 

Since rule and fact partitioning were chosen to be design guidelines for the 
knowledge base of the expert system, the table “FILE-TABLE" holds the file name of 
each partition to be accessed by “RECONSULT’ system predicate of one argument. 

/* 

flle_table(battery, battery). 
file_table(startlng_system, starter). 
flle_table(lgnltlon_system, ignition). 
flle_table(englne_compresslon. engine). 

r 

The table “SECTION-ENGINE-TABLE” holds the name of specific inference-engine 
to process the partition in question. 

/* 

section_engine_table(battery,inference_enginel). 

section_engine_table(starting_system,lnference_enginel). 

section_engine_table(ignition_system,inference_engine2). 

section_engine_table(engine_compresslon,lnference_englnel). 

r 

“PREDICATE-FILE-INTERFACE” designates the location of intermediate-predicate 
to be Interfaced among the partitions. 

r 

predicate_flle_lnterface(defectlve(battery), battery). 
predicate_file_interface(electrical_circuit_problem.battery). 
predicate_file_interface(high_resistance_Tn_engine. engine). 

r 

In order to be able to access temporarily the partition holding the intermediate- 
predicate neatly for some specific Information, when the intermediate-predicate to 
be queried is not residing In current process state, the current process state has to be 
pushed onto a process stack and the holding partition should be brought. When all 
done, we should come back to the original process state by popping off the stack, 
carrying all cached facts and conclusions. 

We should also ensure mutual-exclusion condition, since the same procedure 
possessing that logic could be consulted several times at different process states, 
possibly attempting to modify the state Information which is supposed to be global 
throughout the program. Inevitably. The top-level predicate “CALL- 
PRECONDITION” of one argument which stands for the Intermediate-predicate itself 
carries that logic out successfully even for some piling up process states. 

r 

call_precondition(not(F_P)) clause(F_P), true),!. fall. 

call_preconditlon(not(F_P)) call_precondltion2(F_P),!,fall. 
call_precondition(not(F_P)j call_precondition3(F_P),!. 
call-precondltlon(not(F_P)) !,not(call(F_P)),!. 
call-precondition(F_P) clause(F_P,true),!. 



call-precondition(F_P) call_precondition2(F_P),!. 
call_precondltlon(F_P) call_precondition3(F_P),!,fail. 
call-preconditlon(F_P) !,call(F_P),!. 



call_precondition2(First_Precondition) 
asserta( ticket). 

not(clause(fact(First_Preconditlon,JJJ),true)). 
predlcate_flle_lnterface(Flrst_Precondltlon.Sectlon_Flle), 
process_stack(LIST).[!not(flrst(LIST.(Sectlon_Flle.X,Yl)), 
retract(ticket).first(LIST,(File_Name.XX,File_Attributej), 
find_world_name(File_Name,File_Attrlbute,World_Name), 
save(World_Name) . world_snap_shot(SN 1 ) . 
asserta(cache(World_N ame . SN 1 )) . asserta(ticket) . 
write($*** LOADING $), 

write(Sectlon_FUe),wrlte($ SECTION ***$) .nl.nl, reconsult(Section_File), 

retract(waltlng_process_number(Nl)),N2 is N1 + 1, 

asserta(waltlng_process_number(N2)). 

retract(process_stack(LIST) ,append([[Section_File.fail.N2H . 

LIST.FINAL_LIST).asserta(process_stack(FINAL_LIST))!). 

call(Flrst_Precondltlon) ,world_snap_shot(SN2) , 

wrlte($*** EXITING $). write! SecUon.File), 

write($ SECTION •••Shnl.nl.createCTEMP.'temp.ari'), 

advance_world(TEMP.SNl,SN2), 

restore(World_Name), (temp). delete('temp.arl'), 

asserta(fact(First_Precondition,yes)), 



call_precondltlon3(First .Precondition) 

[ ! retract (ticket) ! ) .not (ticket) , 
not(clause(fact(First_Precondltion,JJJ),true)), 
predicate_file_interface(First_Precondition,Section_File), 
waiting_process_number(Nl), 

Process_stack(LIST).first(LIST,(Section_File, fail. Nl|). 

wrlte($*** UNLOADING $),write(Section_File), 

write($ SECTION ***$).nl,nl, 

seco nd ( LIST. (File.Name , XXX, File -Attribu te 1 ) , 

flnd_world_name(File_Name.File_Attrlbute, 

World.Name) ,retract(cache(World_Ncime,SN 1 )) . 
world_snap_shot(SN2) ,create(TEMP,'temp . ari') . 
advance_world(TEMP.SNl,SN2), 
restore(World_N ame) . [tempi . 

asserta(fact(First_Precondition,no)),delete('temp.ari'),!. 



/* 

The predicate “ADVANCE-WORLD" serves to advance the database of the previous 
state with the facts asserted and conclusions reached, while still keeping the 
database consistent. 

/* 

advance_world(TEMP,LISTl,LIST2) 

write_cache_list(TEMP,LISTl,LIST2),!. 



wrlte_cache_Ust(TEMP.LISTl.LIST2) member (X.LIST2), 
not(member(X,LISTl)),write(TEMP,X), 
wrlte(TEMP..).nl(TEMP),fail. 

wrlte_cache_list(TEMP.LISTl,LIST2) nI(TEMP),close(TEMP). 

r 

The predicate “RESTORE-DATABASE” of one argument accepts the current partition 
name residing as its argument and initializes process-state parameters for that 
partition. 

r 

restore_database(Section_File 

abolish(process_stack/ 1), 
abolish (waiting_process_number/ 1 ) , 
asserta(process_stack([|Section_file,true,0]])). 
asserta(walting_process_number(0)) . 



/* 

The predicate “CACHE-PREDICATE-LIST" keeps the list of facts, to be carried 
among the process states, once they were cache advanced. 

r 

cache_predicate_list([asked(A,B),proved(diagnosis(C,D)), 

expressed(E) ,cracked_battery, 
electrlcal_circuit_problem.llght_problem, 
defective (battery) , 
rest_of_okay(starting_system) , 
high_resistance_in_engine)). 



r 

The purpose of the predicate “FIND-WORLD-NAME” is to code and decode either 
current or previous process state to a unique file name to be saved or restored. 

r 

find_world_name(File_Name,File_Attribute,World_Name) 
atom_strlng(File_N ame , String 1 ) , 
substring(Strlng 1 ,0,3.Strlng2) , 
int_text(F ile_Attrlbute , String3) , 
c one at( S trtng2 , S tring3 , String4) , 
atom_strtng(World_Name,String4). 



r 

The predicate “WORLD-SNAP-SHOT" gets the list of whole asserted facts within the 
process state for which it was called. 

/* 

world_snap_shot(LIST) cache_predicate_list(Ll), 

run_snap_shot(Ll.LIST). 

run_snap_shot([Xl,LIST) local_snap_shot((],X,LIST). 
run_snap_shot([XILIST],LIST2) 

local_snap_shot([] .X.LIST 1 ) , 
run_snap-shot(LIST,LIST3) , 



append(LISTl,LIST3,LIST2). 



local_snap_shot(A,B,C) 

asserta(sublist(A)), 

clause(B .true) , [ !sublist(E) ,append([B] ,E,F) . 
retract(sublist(E)) , asserta(subllst(F)) !| .fall. 
locaI_snap_shot(A,B.C) sublist(D),retract(sublist(D)),C=D,!. 



% THE FOLLOWING CONTAINS THE CONTENTS OF BATTERY FII.E . 



llst_of_expected_diagnosls(battery.[case_cracked,case_liitact. 

discharged_batteryl) . 

list_of_expected_dlagnosis(battery_cable_connections, 

[bad_cable_connections,open_circuitl). 

recommended((vlsual_lnspectlonl,battery,case_cracked). 
recommended([visu al_inspection) .battery ,case_lntact) . 
recommended([high_beam, hydrometer), battery, 

discharged_battery). 

recommended(|visual_lnspection,high_beam,voltmeter], 

battery_cable_connections,bad_cable_connections). 

recommended([vlsual_lnspection.voltmeter], 

battery_cable_connections,open_circuit). 

preconditions(vlsual_inspectlon, battery, case_cracked,[)). 

preconditions(visual_inspection,battery,case_lntact,[]). 

precondltions(high_beam,battery,dlscharged_battery, 

(not(cracked_battery).not(light_problem)]). 

preconditlons(hydrometer,battery,dlscharged_battery, 

(not(unable_to_use(hydrometer))]). 

predonditions(visual_inspection.battery_cable_connectlons, 

bad_cable_connections,|]). 

preconditions(high_beam,battery_cable_connections, 

bad_cable-connections,[not(cracked_battery), 

not(light_problem),not(electrlcal_circult_problem)l). 

precondltlons(voltmeter,battery_cable_connectlons, 

bad_cable_connections,(not(defective(battery)), 

not(electical_circult_problem), 

not(unable_to_use(volmeter))l). 

precondltlons(vlsual_lnspectlon,battery_cable_connectlons, 

open_circuit.|l). 

precondltlons(voltmeter,battery_cable_connectlons,open_clrcuit, 

|not(defective(battery)), 
not(unable_to_use(voltmeter))]) . 

cracked_battery diagnosis(case_cracked),asserta(cracked_battery). 
electrlcal_curcuit_problem dlagnosls(open_clrcult),asserta 

(electrlcal_clrcult_problem). 

light_problem asklfnot(llght_on),asserta(Ught_problem). 
defective(battery) cracked_battery.asserta(defectlve(battery)). 
defectivefbattery) diagnosls(dlscharged_battery),asserta(defectlve(battery)). 

questioncode(llght_on, 

$Dld the light come out when the knob turned on$). 
questioncode(dim,$Dld the lights dim considerably or go out$). 
questioncode(low_charge,$Does It Indicate less than 1.140 @$). 
questloncode(cracked,$Is the battery case crackedS). 
questloncode(exceeded,$Dld voltage drop exceed 0.4 volts$). 
questioncode(lntact,$Is the battery case IntactS). 
questloncode(bad,$Dld you notice bad cable or connectlons$). 
questloncode(open_clrcult,$Dld you notice an open connections). 
questioncode(same,$Is the reading same as the battery readings). 



code(10.$Tum lights on high, 

try starter and note action of lights. $.$No more$). 
code(20,$Test the state of charge of 

battery using the hydrometer.$,$No more$). 
code(30,$Inspect the battery case. $. 

$For cracks, corrosion and water level.$). 
code(40.$Connect prods of voltmeter on 3-volt scale to 
grounded battery post and starter moter housing. 

Close the starter switch and not the voltmeter 
reading. $,$No more$). 
code(50.$Inspect the battery cables. $, 

$For loose, broken open cables and connections:$). 
code(battery,$Battery located under the engine hood, 

most probably on right front of the vehicle, $, 

$No more$). 

code(battery cable connections, 

$Located between battery and starter unlt.$,$No more$). 

get_ready_equipment(visu al_lnspectlon .Part ,case_cracked) : - 

code_interpreter(30) . 

get_ready_equlpment(visual_lnspectlon,Part,case-lntact) 

code_lnterpreter(30) . 

get_ready_equipment(hlgh_beam,Part,dlscharged_battery) 

code_interpreter( 1 0) . 

get_ready_equipment(hydrometer,Part,discharged_battery) 

code_lnterpreter(20) . 

get_ready_equlpment(visual_lnspectlon.Part,bad_cable_connectlons) 

code_lnterpreter(50). 

get_ready_equlpment(hlgh_beam,Part,bad_cable_connections) 

code_lnterpreter( 10). 

get_ready_equipment(voltmeter,Part,bad_cable_connections) 

code_lnterpreter(40). 

get_ready_equlpment(visual_lnspectlon,P,open_clrcuit) 

code_lnterpreter(50). 

get_ready_equlpment(voltmeter,Part,open_circult) 

code_lnterpreter(40) . 



proved_dlagnosls(vlsual_inspectlon,Part.case_cracked) 

asklflcracked). 

proved_diagnosls(vlsual_inspectlon,Part,case_lntact) 

asklf(intact). 

proved_dlagnosis(hlgh_beam,Part,discharged_battery) 

askif(dlm) ,askif(hear (clattering)) . 

proved_dlagn 0 sls(hydrometer,Part,dlscharged_battery) 

askif(low_charge). 

proved_diagnosls(vlsual_lnspectlon,Part.bad_cable_connectlons) 

asklflbad). 

proved_diagnosis(high_beam,Part,bad_cable_connectlons) 

askif(dlm). 

proved_dlagnosls(voltmeter,Part.bad_cable_connections) 

asklfl exceeded). 

proved_dlagnosis(visual_lnspection,Part,open_clrcult) 



asklflopen circuit). 

proved_dlagnosls(voltmeter,Part,open_clrcult) 

asklflsame). 



% THE FOLLOWING CONTAINS THE CONTENTS OF STARTER FILE 



list_of_expected_diagnosis(ignition_switch, 

(broken_ignition_switch_connections|). 

list_of_expected_diagnosis(magnetic_switch, 

[improperly_functioning_magnetic_switch)). 

list_of_expected_diagnosis(starter_solenoid. 

[malfunction_in_starter_solenoidj). 

list_of_expected_diagnosis(starter_unit, 

(malfunction_in_start er_unitl) . 

recommended(Ielectrical_testl,electrical_test2],ignition_switch, 

broken_ignition_switch_connections). 

recommended([electrlcal_test],magnetic_switch, 

improperly_functioning_magnetic_switch). 

recommended([electrical_testl,starter_solenoid, 

malfunction_in_starter_solenoid). 

recommended(lsymptom(slow_cranklng) f symptom(starter_splns_free), 
symptom(early) ,deductive_reasoning] ,starter_unlt, 

malfunction_in_starter_unit) . 

preconditions(electiical_testl,ignition_switch, 
broken_ignition_switch_connections, 
tfact(starter_doesnt_tum_at_all),not(defective(battery)), 
(askif(has(test_lamp_12V));not(unable_to_use(voltmeter)))]). 
preconditions(electrlcal_test2,ignition_switch f 
broken_ignition_swith_connections, 
(fact(starter_doesnt_tum_at_all),not(defective(battery)), 
(askif(has(test_lampl2V));not(unable_to_use(voltmeter)))|). 
preconditions(electrlcal_test,magnetic_switch, 
improperly_functioning_magnetic _switch, 
[fact(starter_doesnt_tum_at_all), 
not(diagnosis(broken_ignition_switch_connctions)), 
asklf(has(Jumper))|). 

preconditions(electrlcal_test,starter_solenold, 

malfunction_in_starter_solenoid, 
|fact(starter_doesnt_tum_at_all),not(defective(battery)), 
not(electrical circuit problem) ,asklf(has(jumper))]). 
preconditions(symptom(slow-cranking), starter-unit, 
malfunction_in_starter_unlt. 
(fact(slow_cranking,not(defective(battery)). 
not(high_resistance_in_engine)|). 
preconditions(symptom(starter_spins_free),starter_unit, 
malfunction_in_starter_unlt. 

(fact (starter_tums_but_not_the_engine) , askif(starter_spins_free) ]) . 
preconditions(symptom(early),starter_unit, 

[fact(starter_tums_but_not_the_engine),not(high_resistance_in_engine)l). 



preconditlons(deductive_reasonlng,starter_unit, 

malfunction_in_starter_unit, 

(fact(starter_doesnt_tum_at_all),not(defective(battery)), 
not(electrical_circuit_problem), 
re st_of_o kay ( starting_sy ste m) ] ) . 



rest_of_okay(startlng_system) 

not(dlagnosis(broken_ignltlon_swltch_connections)). 

not(dlagnosls(lmproperly_functlonlng_magnetic_swltch)), 

not(dlagnosls(malfunctlon_in_starter_solenold)), 

asserta(rest_of_okay(startlng_system)). 



questioncode(lamp_llghts,$Dld the lamp light or meter needle 
move, when the switch Is tumed$). 
questloncode(lamp_fllckers,$Dld the lamp flicker or meter needle 
move, when the key JlggledS). 
questloncode(starter_splns_free.$Is that your problem; 

starter spins free but won’t engageS). 
questloncode(starter_operates,$Dld the starter operates). 
questioncode(response_recorded,$Did the starter turn the engine 

either normally or slowly or buzzS). 

code(magnetlc_switch.$An electrically operated switch whose only function 
is to make contact for the starter.May be located on 
the starter.on the engine side of firewall, or on the 
fender apron. S.SNo moreS). 

code(starter_solenold.$An electrically operated whose function is to make 
electrical contact the the starter.and in addition 

shift the starter clutch Into mesh with the flywheel. 
Always located on the starter.S.SNo more$). 
code(starter_unlt.SAlways located either on right or left side of engine very 
close to the bottom. $, No more$). 
code(100.SCheck the ignition switch for loose connections, 
cracked insulation, or broken wires. $, 

SConnect a 12V test lamp or voltmeter between the 
starter post of solenoid and ground. Turn the Ignition 
switch to the "start” position and Jiggle the key.S). 
code(200.$Determlne whether the magnetic switch is functioning 
properly. $, 

SBy connecting a jumper across the switch and 
turning the ignition switch to start.S). 
code(300,$Test the starter solenoid. $, 

SConnect a Jumper from the battery post of 
solenoid to the starter post of solenoid. $). 

get_ready_equlpment(Test,lgnition_switch, 

broken_ignltlon_switch_connectlons) code_interpreter(100). 
get_ready_equipment(electrlcal_test,magnetlc_switch, 
lmproperly_functionlng_magnetlc_swltch) code_lnterpreter(2(X)). 
get_ready_equlpment(electrical_test,starter_solenoid, 
malfunction_tn_starter_solenoid) code interpreter(300). 
get_ready_equipment(Symptom,starter_unit, 

malfunctlon_ln_starter_unlt) . 

proved_dlagnosis(electrlcal_testl,lgnitlon_swltch, 

broken_ignitlon_switch_connectlons) asklfnot(lamp_lights). 
proved_dlagnosls(electrlcal_test2,lgnltlon_switch. 

broken_lgnitlon_swltch_connectlons) askifllamp_flickers). 
proved_diagnosis(electrlcal_test.magnetlc_swltch. 



lmproperly_functioning_magnetic_switch) : - 

asklflstarter_operates) . 

proved_diagnosis(electrical_test,starter_solenoid, 

malfunction_ln_starter_solenoid) 

asklfnot(response_recorded) . 

proved_diagnosis(System,starter_unit, 

malfunction_in_starter_unit) . 



% THE FOLLOWING CONTAINS THE CONTENTS OF IGNITION FILE . 



list_of_expected_diagnosls(sub_diagnosls, 

[defective(lgnltlon_system),defective(prtmary_circuit_coil_slde), 

defectlve(prlxnary_clrcuit_distributor_slde)l). 

llst_of_expected_dlagnosls(ignltion_polnts. 

|bumed_or_damaged(ignition_polnts), 

out_of_adjustment(ignltion_points)]). 

list_of_expected_diagnosls(condenser,[defective(condenser)]). 

list_of_expected_diagnosis(ballast._resistor. 

[defective(ballast .resistor)]). 
list_of_expected_diagnosls(ignition_swltch, 

(defective(lgnition_swltch)l) . 

llst_of_expected_dlagnosis(ignitlon_coil, 

[defective(coil_primary_resistance), 
defective(coil secondary_resistance)|). 
list_of_expected_dlagnosis(plugs,(defective(spark plugs)l) 
list_of_expected_dlagnosis(distributor,[poor (distributor_ground) . 
defective(distributor_rotor) ,moisture_on(distributor_cap) , 

cracked_or_tracked(dlstributor_cap), 
defective(distributor_wires_or_ignition_plugs)l). 
llst_of_expected_diagnosls(complete system, 

Iinduction_flring_of_cyclinders 

incorrect(dlstrlbutor_firing_sequence), 

incorrect(ignition_timing)]). 

recommended([spark_test],sub_diagnosis,defective(lgnltion_system)). 

recommended([voltmeter_testl.voltmeter_test21,sub_diagnosls. 

defective(primary_circuit_coil_side)). 

recommended(lvoltmeter],sub_dlagnosis. 

defective(primary_circuit_distrlbutor_side)). 

recommended([visual_inspection).ignltion_points, 

bumed_or_damaged(ignition_points)). 

recommended([visual_lnspection,dwell_meter|.ignition_points, 

out_of_adJustment(lgnition_points)), 
recommended! [voltmeter], ballast.reslstor, 

defective(ballast_resistor)). 

recommended([voltmeter),condenser,defective(condenser)). 

recommended([electrical_test),lgnltlon_switch, 

defective(ignitlon_switch)). 

recommended(|voltmeter),lgnition_coil, 

defective(coil_primary_resistance)). 

recommended([voltmeter],ignition_coil, 

defective(coil_secondary_resistance)). 
recommended((visual_inspection], plugs, defectlve(spark_plugs)). 
recommended(()umper). distributor, poor(distributor_ground)). 
recommended([visual_inspection], distributor. 

defective(dlstributor_rotor)) . 

recommended([hypothesis(moisture_on(distributor_cap))]. 

distributor,moisture_on(dlstributor_cap)). 
recommended(visual_inspection]. distributor, 

cracked_or_tracked(distributor_cap)). 
recommended([vlsual_inspectionl. distributor. 

defective(distributor_wlres_or_lgnltion_plugs)). 



recommended(try_to_check] .complete system. 

induction_flrlng_of_cyclinders) . 
recommended ([try_to_check] ,complete_system, 

incorrect (distrlbutor_firlng_sequence)). 
recommended([test_light], complete_system, 

incorrect(ignition_timing)). 



preconditions(spark_test.sub_diagnosis. 

defective(ignition_system),(l). 
preconditlons(voltmeter_test 1 ,sub_diagnosis, 

defective(primary_circuit_coil_side), 

[not(diagnosis(defective(ignition_switch))),askif(has(jumper)). 

not(unable_to_use(voltmeter))]). 

preconditions(voltmeter_test2,sub_diagnosis, 

defective(primary_circuit_coil_side) 
not(diagnosis(defective ignition_switch))),askif(has(jumper)), 

not(unable_to_use(voltmeter)))). 

preconditions(voltmeter,sub_diagnosis, 

defective(primary_circuit_distributor_side). 

(not(diagnosis(defective(ignition_switch))), 

not(diagnosis(bumed_or_damaged(ignition_points))), 

not(unable_to_use(voltmeterj) )) . 
preconditions(visual_inspection,ignition_points 

bumed_or_damaged(ignition_polnts) ,[]). 
preconditions(visual_inspection,ignition_points, 

out_of_adjustment(ignition_points),[l). 

preconditions(dwell_meter.ignition_points. 

out_of_adjustment(ignition_points).(not(fact(engine_wont_start)). 

not(unable_to_use(dwell_meter))]). 

preconditions(voltmeter,ballast_resistor, 

defective(ballast_resistor),[not(unable_to_use_(voltmeter))]). 

preconditions(voltmeter,condenser,defective(conllenser). 

[not(unable_to_use(voltmeter))l). 

preconditions(electrical_test.ignition_switch. 

defectlveUgnition switch), [(askif(has(test_tamp_12V)); 

not(unable_to_use (voltmeter)))]). 
preconditions(voltmeter,ignition_coil, 

defective(coil_primary Resistance), 
|not(unable_to_use(voltmeter))]). 
preconditions(ohmmeter,ignition_coil, 

defective(coil_secondary_resistance), 

(not(unable_to_use(ohmmeter))|). 

preconditions(visual_inspection,plugs,defective(spark_plugs),[]). 

preconditions(Jumper,distributor,poor(distributor_ground), 

[askif (has(Jumper)) ]) . 

preconditions (visual_inspection, distributor, 

defective(distributor_rotor),|]). 

preconditions(hypothesis(moisture_on(distributor_cap)). 

distrlbutor,moisture_on(distributor_cap), 
[hypothesis(moisture_on(distributor_cap))]). 
preconditions(visual_lnspection. distributor, 

cracked_or_tracked(distributor_cap),[]). 

preconditions(visual_inspection, distributor. 



defectlve(dlstrlbutor_wires_or_ignition_plugs),[|). 

preconditions(try_to_check,complete_system, 

induction_firlng_of_cylinders.[]). 

preconditions(try_to_check,complete_system, 

incorrect(distrlbutor_flrlng_sequence),[)). 

preconditions(test_light,complete_system, 

lncorrect(ignltion_timlng) . 
[not(dlagnosis(out_of_adJ ustment(ignition_points))) , 

not(unable_to_use(test_light))]). 

hr not(hypothesis(defective(spark_plugs))).fact(hard_startlng), 
fact(mlsfire_under_load).asserta(hypothesis(defective(spark_plugs))). 
hr not(hypothesls(defective(spark_plugs))).fact(hard_starting), 
fact(poor_plck_up).asserta(hypothesls(defective(spark_plugs))). 
hr not(hypothesis(defective(spark_plugs))). 
asklf(hear(detonation)), 
asserta(hypothesis(defectlve(spark_plugs))). 
hr 

not(hypothesis(defectlve(distrlbutor_wires_or_ignltlon_plugs))), 
fact(hard_startlng),fact(poor_pick_up). 
assert a(hypothesis(defective(dlstributor_wlres_or_ignltion_plugs))). 
hr not(hypothesis(defectlve(condenser))), 
diagnosls(bumed_or_damaged(lgnition_points)), 
asserta(hypothesis(defectlve(condenser))). 



hr not(hypothesis(lnduction_flrlng_of_cyllnders)). 

(fact(backfire_through_the_exhaust);fact(backflre_through_the_carburetor)), 
fact(rough_idfe),askiflhear(detonatlon)), 
asserta(hypothesis(induction_fiiing_of_cyllnders)). 
hr not(hypothesis(incorrect(dlstrlbutor_flring_sequence))), 
fact(hard_startlng),fact(backfire_through_the_carburetor), 
asklf(recent_operatorjob), 

asserta(hypothesis(lncorrect(dlstrlbutor_firlng_sequence))). 
hr not(hypothesls(poor(distrlbutor_ground))), 
fact(hard_starting), 

(fact(misflre_under_load);fact(engine_miss_at_hlgh_rpm)), 
asserta(hypothesis(poor(distrlbutor_ground)T). 
hr not(hypothesis(lncorrect(ignltion_tlming))), 
askif(hearldetonation)), 

asserta(hypothesls(lncorrect(lgnition_timing))). 

hr not(hypothesis(defective(coil_secondary_resistance))), 
fact(hard_startlng),(fact(misfire_under_load); 
fact(engine_miss_at_high_rpm)T, 

asserta(hypothesis(defective(coll_secondary_resistance))). 
hr not(hypothesis(moisture_on(distrlbutor_cap))), 
(fact(engine_wont_start);fact(hard_starting)), 
(askif(high_level_of_moisture_in_atmosphere); 
asklf(wash_recently)), 

asserta(hypothesis(moisture_on(distrlbutor_cap))). 



hr not(hypothesis(cracked_or_tracked(dlstrlbutor_cap))), 
fact(hard_starting).fact(susceptible_to_moisture). 



asserta(hypothesis(cracked_or_tracked(distrlbutor_cap))). 



hr not(defective(ignltion_system)),fact(englne_wont_start), 
diagnosis(defective(lgnition_system)), 
retract_sub_diagnosis(defective(ignition_system)). 
asserta(defective (ignitlon_system)) . 
hr not(hypothesis(defective(coil_secondary_resistance))), 
defective(ignition_system), 

asserta(hypothesis(defective(colI_secondary_reslstance))). 
hr not(defective(primary_circult_coll_slde)), 
defective (lgnition_system), 
diagnosis(defective(primary_circuit_coil_side)), 
retract_sub_diagnosls(defectlve(piimary_clrcuit_coll_side)), 
assert_hypothesls(defective(ballast_reslstor)), 
assert_hypothesls(defective(coll_prlmary_resistance)), 
asserta(defective(primary_circuit_coil_side)). 
hr : -not(defectlve(primary_clrcult_distrlbutor_side)) , 
defectlve(lgnltion_system), 

dlagnosis(defective(primary_circult_dlstrlbutor_slde)). 

retract_sub_diagnosis(defective(prlmary_circuit_distrlbutor_slde)). 

assert_hypothesls(defectlve(condenser)), 

assert_hypothesis(out_of_adJustment(lgnition_polnts)), 

assert_hypothesis(defective(dlstrlbutor_rotor)), 

asserta(defective(prlmary_clrcuit_dlstrlbutor_slde)). 

assert_hypothesls(Hypothesis) hypothesis(Hypothesls). 
assert_hypothesls((Hypothesls) not(hypothesls(Hypothesls)), 

asserta(hypothesis(Hypothesls)) . 

retract_sub_dlagnosls(Dlagnosls) repeat, 

retract(proved(dlagnosis(Diagnosls, Equipment))), 
not(proved(diagnosis(Diagnosis,Equip))),!. 



qu estloncode (recent_operator J ob , 

$Has any operator Job recently been done on Ignition system$). 
questloncode(hlgh_level_of_molsture_ln_atmosphere, 

$Do you observe a high level of moisture in the atmosphere$). 
questloncode(wash_recently,$Have you washed the car recently$). 
questioncode(good_spark,$Is the spark good and consistent$). 
questloncode(voltage_for_voltmeter_testl,$ 

With Ignition switch on. did the voltmeter show 5.5 to 7 volt$). 
questloncode(voltage_for_voltmeter_test2, 

$While cranking, did the voltmeter show around 9 volts$). 
questloncode(voltmeter_reading_remalns_zero,$Whlle cranking, 
did the voltmeter reading remain zero or close to it$). 

questioncode(bumed_or_damaged(ignition_points), 

$Did you observe burned or damaged Ignition points$). 
questioncode(out_of_adJustment(lgnltlon_points), 

$Did you note excessive open or close gap between polnts$). 
questioncode(excessive_variation_in_dwell. 

$Do you note an excessive variation in dwell.(over3 deg) 



as the speed is increased$). 

questioncode(zero_reslstance,$Is the resistance zero$). 
questioncode(shows_other_than_lnflnte. 

SDld you note any reading other than lnflnite$). 
questloncode(lamp_donot_nicker_but_light,$Dld the lamp light$). 
questioncode(read_lohm_reslstance,$Did you read about 1 ohm$). 
questloncode(between4and8.$Is the reading between 4K and 8K ohm$). 
questloncode(bumed(spark_plug_polnts). 

SDld you note burned spark plug polntsS). 
questloncode(change_somethlng,$Dld it change somethlngS). 
questloncode(rotor_tums_approprlately, 

SDoes the rotor turn appropriately with no loosened componentsS). 
questloncode(cracked_or_tracked(dlstributor_cap), 

SDo you notice cracked or tracked distributor cap or components). 
questloncode(defectlve_lgnltlon_wlres, 

SDo you observe any cracked, burned, or broken InsulatlonS). 
questloncode(inductlon_firing,$Do you note any consecutive wires 

causing induction flrlngS). 

questloncode(mlsslng_cyllnder.$Do you Identify any missing one$). 
questioncode(flash_light_intermittently, SDoes the light flash intermlttentlyS). 
questioncode(unfixed_at_constant_engine_speed, 

SDoes the pointer appear to move on the Index scaleS). 

code(ignltion_polnts, 

SIgnitlon points are located inside the distributor under the 
distributor cap.S.SNo moreS). 

code(condenser,$Condenser is located Inside the distributor 
under the distributor cap.S.SNo moreS). 

code(ballast_resistor,$Ballast resistor lies between the ignition 

coll and ignition swltch.S.SNo moreS). 

code(ignition_coil, 

SAlways located very close to engine.S.SNo moreS). 
codefplugs.SSpark plugs are located on the engine connected to 
distributor by ignition wires. S.SNo moreS). 

code(dlstributor,$Distributor Is one of the major components of the 
Ignition system. S.SWhlch Is located close to the engine. $). 



code(1000, 

SCheck for spark at the coll high tension lead.S. 

SRemove the coll high tension lead from the distributor and 
position it approximately 1/4" from ground. Crank the engine 
and observe the sparkS). 

code(2000,$With engine at operating temperature, but stopped, 
and the distributor side of the Ignition coll grounded with a 
Jumper wire, hook up a voltmeter between the ignition coll 
(switch side) and a good ground. S.SNo moreS). 

code(3000,$Wlth the voltmeter on the 16-20 volt scale, connect 
one voltmeter lead to the distributor side of the coll. Remove 
the high tension wire from the coll and ground it. Close Ignition 
switch and slowly bump the engine to open and close the points.S, 
SNo moreS). 

code(4000,$Visually inspect the Ignition points.S, SFor burned. 



damaged, or out-of- adjustment potnts.$). 
code(5000, 

$Perform the dwell meter test according to manufacturer's 

specifications.$.$No more$). 

code(6000, 

$Check the ballast resistor or resistor wire for an 
open circuit, using an ohmmeter.$,$No more$). 
code(7000,$Check the condenser for short. $,$Connect an ohmmeter 
across the condenser body and the pigtail lead.$). 
code(8000,$Check the ignition switch "on" position. $, 

$Connect a Jumper wire between the distributor side of the coil 
and ground, and a 12V test lamp between the switch side of the 
coil and ground. Remove the high tension lead from the coil. Turn 
the igntion switch on and Jiggle the key.$). 
code(9000,$To check ignition coil resistance, primary side, 
switch ohmmeter to low scale. Connect the ohmmeter leads across 
the primary terminals of the coil and read the low ohms scale.$, 
$No more$). 

code(9100.$Check the ignition coil secondary side resistance^, 
$Swltch ohmmeter to high scale, connect one test lead to the 
distributor cap end of the coil secondary cable, connect the 
other test lead to the distributor terminal of the coil.$), 
code(9200,$Remove the spark plugs.$,$Noting the cylinders from 
which they were removed. $). 

code(9300,$Connect a jumper wire between distributor body and a 
good ground.$,$No more$). 

code(9400,$Remove the distributor cap and check to make sure that 
the rotor turns when the engine is cranked. Visually Inspect the 
distributor components.$,$No more$). 
code(9500,$Inspect the distributor for cracked or tracked 
distributor cap or components. $,$No more$). 
code(9600,$Visually inspect the spark plug wires for cracking or 
brittleness. $,$Spark plug wires can be checked visually by 
bending them in a loop over your finger. $). 

code(9700,$Ensure that no two wires are positioned so as to cause 
induction firing,$,$Misfiring can be the result of spark plug 
leads to adjacent, consecutively firing cylinders running parallel 
and too close together. $). 

code(9800,$Locate an ignition miss,$,$With the engine running, 
remove each spark wire, one at a time, until one is found that 
doesnt cause the engine to roughen and slow down.$). 
code(9900,$Perform the ignition timing according to 
manufacturer’s speciflcation.$,$No more$). 

get_ready_equipment(spark_test,sub_diagnosis, 

defective (ignition_system)) code_interpreter(1000). 

get_ready_equipment(Voltmeter_test,sub_diagnosis, 
defective(primary_clrcuit_coll_side)) code_interpreter(2000). 
get_ready_equipment(voltmeter,sub_diagnosis, 

defectlve(primary_clrcuit_distributor_side)) 

code_interpreter(3000) . 

get_ready_equipment(visual_inspection,lgnition_polnts, 

bumed_or_damaged(ignltion_polnts)) 



code_interpreter(4000) . 

get_ready_equipment(visual_inspection,ignition_points, 

out_of_adJustment(ignition_points)) 

code_interpreter(4000) . 

get_ready_equipment(dwell_meter,lgnltion_polnts, 

out_of_adJustment(ignition_points)) 

code_lnterpreter(5000) . 

get_ready_equipment(voltmeter,ballast_resistor, 

defective(ballast_resistor)) 

code_lnterpreter(6000) . 

get_ready_equipment(voltmeter. condenser, defectlve(condenser)) 

cod e_interprete r( 7000) . 

get_ready_equipment(electrical_test.ignition_switch. 

defective(lgnition_swltch)) 

code_lnterpreter(8000) . 

get_ready_equipment(voltmeter. lgnitlon_coll, 

defective(coil_primary .resistance)) 

code_interpreter(9000) . 

get_ready_equipment(voltmeter, ignltion.coil, 

defective(coil_secondary_resistance)) 

code_interpreter(9 100). 

get_ready_equipment(visual_inspection, plugs. 

defective(spark_plugs)) 

code_interpreter(9200) . 

get_ready_equipment(Jumper,dlstributor,poor(distributor_ground)) 

code_interpreter(9300). 

get_ready_equipment(visual_inspection. distributor. 

defective(distrlbutor_rotor)) 
code_interpreter(9400) . 
get_ready_equipment(hypothesis(moisture_on_distributor_cap)), 
distributor.moisture_on(distributor_cap)). 
get_ready_equipment(visual_inspection. distributor. 
cracked_or_tracked(distributor_cap)) code_interpreter(9500). 
get_ready_equipment(visual_inspection. distributor, 

defective(dlstributor_wires_or_ignition_plugs)) 

code_interpreter(9600). 

get_ready_equipment(try_to_check,complete_system, 

inductlon_firing_of_cylinders) 

code_interpreter(9700) . 

get_ready_equipment(try_to_check.complete_system, 

incorrect(distributor_firing_sequence)) : - 

code_interpreter(9800) . 

get_ready_equipment(test_light,complete_system. 

incorrect(ignition_timing)) 

code_interpreter(9900) . 



proved_diagnosis(spark_test.sub_dlagnosis, 

defective(ignition_system)) 

askifnot{good_spark) . 

proved_diagnosis(voltmeter_testl.sub_dlagnosis, 

defective(primary_circuit_coil_side)) 



asklfnot(voltage_for_voltmeter_test 1 ). 
proved_dlagnosis(voltmeter_test2.sub_dlagnosis, 

defective(primary_circuit_coil_side)) 

asklfnot(voltage_for_voltmeter_test2). 

proved_diagnosis(voltmeter,sub_diagnosis, 

defective(prlmary_clrcuit_distributor_side)) 

asklfnot(voltmeter_reading_remains_zero). 

proved_diagnosis(visual_inspection,ignition_points, 

bumed_or_damaged(ignition_polnts)) 

asklf(bumed_or_damaged(ignition_points)). 

proved_diagnosis(vlsual_inspection,ignition_points, 

out_of_adjustment(ignltion_points)) 

assert_hypothesis(incorrect(ignition_tlming)). 

proved_diagnosis(dwell_meter,ignition_points. 

out_of_adjustrnent(ignition_points)) 

askif(excessive_variation_in_dwell) , 
assert_hypothesis(defective(distributor_rotor)), 
assert_hypothesis(defective(coil_primary_resistance)). 
assert_hypothesis(defective(coil_secondary_reslstance)), 
assert_hypothesis(incorrect(ignition_timing)). 
proved_diagnosis(voltmeter,ballast_resistor, 

defectlve(ballast_resistor)) 

askif(zero_resistance) . 

proved_diagnosis(voltmeter.condenser,defective(condenser)) 

asklf(shows_other_than_infinite). 

proved_diagnosis(electrlcal_test,ignition_switch, 

defective(lgnition_switch)) 

askifnot(lamp_donot_flicker_but_llght). 

proved_diagnosis(voltmeter,ignitlon_coil, 

defectlve(coll_prlinary_reslstance)) 

asklf(read_ 1 ohm_resistance) . 

proved_diagnosis(voltmeter,ignition_coil, 

defective (coil_secondary .resistance)) 

askifnot(between4and8) . 

proved_dlagnosls(visual_lnspectlon, plugs, defectlve(spark_plugs)) 

asklfIbumed(speU*k_plug_polnts)), 

assert_h 5 rpothesls(defectlve(condenser)). 

proved_dlagnosis(Jumper,dlstributor,poor(dlstrlbutor_ground)) 

asklf(change_somethlng) . 



proved_dlagnosis(visual_lnspectlon, distributor, 

defectlve(distributor_rotor)) 
askifiiot(rotor_tums_approprlately) . 

proved_diagnosis(hypothesis(moisture_on(distributor_cap)), 

distributor, moisture_on(dlstributor)cap)), 

proved_diagnosis(vlsual_inspection,distributor, 

cracked_or_tracked(distributor_cap)) 
askifTcracked_or_tracked(distributor_cap)). 
proved_diagnosis(visual_inspection, distributor, 

defective(distributor_wires_or_ignition_plugs)) 

asldf(defective_ignition_wires), 

proved_diagnosis(try_to_check,complete_system, 

induction_firing_of_cylinders) 



askif(induction_fir ing) . 

proved_diagnosis(try_to_check,complete_system. 

lncorrect(distrlbutor_flrlng_sequence)) 

askif(missing_cylinder) . 



proved_diagnosis(test_light,complete_system 

lncorrect(ignltion_tlining)) 
askif{fiash_light_lntermittently) . 
assert_hypothesis(poor(distributor_ground)), 
assert_hypothesis(cracked_or_tracked(dlstributor_cap)), 
assert_hypothesis(defective(distributor_rotor)). 
proved_diagnosis(test_llght.complete_system. 

tncorrect(lgnltion_tlmlng)) 

asklf(unflxed_at_constant_englne_speed). 

assert_hypothesis(defective(distributor_rotor)). 



% THE FOLLOWING CONTAINS THE CONTENTS OF ENGINE FILE . 



list_of_expected_diagnosis(complete_system. 

[high_resistance_in_englne]) . 
recommended([torque_test],complete_system, 

high_resistance_in_engine) . 
preconditions(torque_test,complete_system, 

high_resistance_in_engine, 

(asklf(has(torque_tool))]). 

get_ready_equipment(torque_test,complete_system, 

high_resistance_in_engine) 
code_lnterpreter( 1 0500) . 
proved_diagnosis(torque_test,complete_system, 

high_resistance_ln_engine) 

asklfnot(able_to_tum). 

high_resistance_in_englne diagnosis(high_resistance_in_englne), 

asserta(high_resistance_in_engine). 

questioncode(able_to_tum,$Could you turn the engine freely$). 
code( 10500, $Attach the torque tool to front crank wheel of motor, 
and try to turn it by power.$,$No more$). 



APPENDIX B 



SAMPLE USER SESSIONS 



j *************************************** j 

Actual responses given regarding the vehicle 
under consideration have been simulated 
throughout the sample consultations. 

/*************************************** j 



CONSULTATION #1 : 

>api 

Arity/Prolog Interpreter Version 4.0 
Copyright (c) 1986 Arity Corporation 
?- [global]. 

VEHICLE DIAGNOSIS EXPERT SYSTEM IMPLEMENTATION 

Please enter “diagnosis” to start the consultation. 

yes 

?-diagnosis. 

1: Does the engine start at all? 

2: Does the engine run poorly? 

Give numbers of questions whose answer is yes.[l]. 

1: Does starter turn at all? 

2: Does starter turn, but not the engine? 

3: Does starter turn the engine very slowly? 

4: Does starter turn the engine normally? 

Give numbers of questions whose answer is yes.[l]. 

1: Does starter turn the engine very quickly? 

2: Does the engine fire intermittently? 

3: Does the engine fire consistently? 

Give numbers of questions whose answer is yes.[ ]. 



*** 



BATTERY SECTION 



*** 



Do you know where the battery is? (yes/no) ==> y. 

Inspect the battery case. 

Do you need further explanation? (yes/no) ==> n. 

Is the battery case cracked? (yes/no) ==> n. 

Is the battery case intact? (yes /no) ==> n. 

Did the light come on when the knob turned on? (yes /no) ==> y. 

Turn lights on high, try starter, and note action of lights. 

Did the lights dim considerably or go out? (yes/no) ==> n. 

Do you have a hydrometer? (yes/no) ==> y. 

Do you know how to use a hydrometer? (yes/no) ==> y. 

Test the state of charge of the battery using the hydrometer. 

Does it indicate less than 1.140 @? (yes/no) ==> n. 

Do you know where the battery cable connection is? (yes /no) ==> y. 

Inspect the battery cables. 

Do you need further explanation? (yes /no) ==> y. 

For loose, broken, open cables and connections: 

Did you notice bad cables or connections? (yes/no) ==> n. 

Did you notice an open connection? (yes/no) ==> n. 

Do you have a voltmeter? (yes /no) ==> y. 

Do you know how to use a voltmeter? (yes/no) ==> y. 

Connect prods of voltmeter on 3-volt scale to grounded battery post 
and starter motor housing. Close the starter switch and note the 
voltmeter reading. 

Is the reading the same as the battery reading? (yes /no) ==> y. 

MOST LIKELY DIAGNOSIS LIST: 

LESS LIKELY DIAGNOSIS LIST: 

Open circuit 

yes 

?- 



CONSULTATION #2: 



>api 

Arity/Prolog Interpreter Version 4.0 
Copyright (c) 1986 Arity Corporation 
?- [global]. 

VEHICLE DIAGNOSIS EXPERT SYSTEM IMPLEMENTATION 

Please enter “diagnosis” to start the consultation. 

yes 

?-diagnosis. 

1: Does the engine start at all? 

2: Does the engine run poorly? 

Give numbers of questions whose answer is yes.[l]. 

1: Does starter turn at all? 

2: Does starter turn, but not the engine? 

3: Does starter turn the engine very slowly? 

4: Does starter turn the engine normally? 

Give numbers of questions whose answer is yes. [3]. 

1: Does starter turn the engine very quickly? 

2: Does the engine fire intermittently? 

3: Does the engine fire consistently? 

Give numbers of questions whose answer is yes.[ ]. 

*** STARTER SECTION *** 

*** LOADING BATTERY SECTION *** 

Do you know where the battery is? 

Inspect the battery case. 

Do you need further explanation? 

Is the battery case cracked? 

Is the battery case intact? 

Did the light come on when the knob turned on? 

Turn lights on high, try starter, and note action of lights. 



(yes /no) ==> y. 



(yes/no) ==> n 

(yes /no) ==> n 
(yes/no) ==> n 
(yes/no) ==> y. 



Did the lights dim considerably or go out? 
Did you hear a sound like a clattering? 

Do you have a hydrometer? 

Do you know how to use a hydrometer? 



(yes/no) ==> y. 
(yes/no) ==> n. 
(yes/no) ==> y. 
(yes /no) ==> y. 



Test the state of charge of the battery using the hydrometer. 



Does it indicate less than 1.140 @? 



(yes/no) 



==> n. 



*** UNLOADING BATTERY SECTION *** 

*** LOADING ENGINE SECTION *** 

Attach the torque tool to the front crank wheel of the motor, and try 
to turn it by power. 

Could you turn the engine freely? (yes /no) ==> y. 

*** UNLOADING ENGINE SECTION *** 

MOST LIKELY DIAGNOSIS LIST: 

LESS LIKELY DIAGNOSIS LIST: 

Malfunction_in_starter_unit 

yes 

?- 



CONSULTATION #3: 



>api 

Arity/Prolog Interpreter Version 4.0 
Copyright (c) 1986 Arity Corporation 
?- [global]. 

VEHICLE DIAGNOSIS EXPERT SYSTEM IMPLEMENTATION 

Please enter “diagnosis” to start the consultation. 

yes 

?-diagnosis. 

1: Does the engine start at all? 

2: Does the engine run poorly? 

Give numbers of questions whose answer is yes.[l]. 

1: Does starter turn at all? 

2: Does starter turn, but not the engine? 

3: Does starter turn the engine very slowly? 

4: Does starter turn the engine normally? 

Give numbers of questions whose answer is yes. [2]. 

1: Does starter turn the engine very quickly? 

2: Does the engine fire intermittently? 

3: Does the engine fire consistently? 

Give numbers of questions whose answer is yes. [2]. 

I found a contradiction! 

Check and repeat your answer. 

1: Does starter turn at all? 

2: Does starter turn, but not the engine? 

3: Does starter turn the engine very slowly? 

4: Does starter turn the engine normally? 

Give numbers of questions whose answer is yes. [2]. 

1: Does starter turn the engine very quickly? 

2: Does the engine fire intermittently? 

3: Does the engine fire consistently? 

Give numbers of questions whose answer is yes.[ ]. 



* * * 



STARTER SECTION 



*** 



Is that your problem: 

Starter spins free but won’t engage? (yes/no) ==> n. 

*** LOADING ENGINE SECTION *** 

Do you have a torque tool? (yes/no) ==> y. 

Attach the torque tool to the front crank wheel of the motor, and try 
to turn it by power. 

Could you turn the engine freely? (yes/no) ==> n. 

*** UNLOADING ENGINE SECTION *** 

MOST LIKELY DIAGNOSIS LIST: 

LESS LIKELY DIAGNOSIS LIST: 

High -resistance-in-engine 



yes 

?- 



CONSULTATION #4: 



>api 

Arity/ Prolog Interpreter Version 4.0 
Copyright (c) 1986 Arity Corporation 
?- [global]. 

VEHICLE DIAGNOSIS EXPERT SYSTEM IMPLEMENTATION 
Please enter “diagnosis" to start the consultation, 
yes 

"?- diagnosis. 

1: Does the engine start at all? 

2: Does the engine run poorly? 

Give numbers of questions whose answer is yes.[l]. 

1: Does starter turn at all? 

2: Does starter turn, but not the engine? 

3: Does starter turn the engine very slowly? 

4: Does starter turn the engine normally? 

Give numbers of questions whose answer is yes. [4]. 

1: Does starter turn the engine very quickly? 

2: Does the engine fire intermittently? 

3: Does the engine fire consistently? 

Give numbers of questions whose answer is yes. [2]. 

*** IGNITION SECTION *** 

Did you hear a sound like a detonation? 

Do you observe a high level of moisture in the 
atmosphere? 

Have you washed the car recently? 

Check for spark at the coil high tension lead. 

Do you need further explanation? 

Remove the coil high tension lead from the distributor and position it 
approximately 1/4" from the ground. Crank the engine and observe 
the spark. 

Is the spark good and consistent? 



(yes/no) ==> n. 

(yes/no) ==> n. 
(yes/no) ==> n. 

(yes/no) ==> y. 



Do you have a test-lamp-1 2V? 



(yes/no) ==> n. 
(yes /no) ==> y. 



Check the ignition switch “on" position. 
Do you need further explanation? 



(yes/no) ==> y. 



Connect a Jumper wire between the distributor side of the coil and 
ground, and a 12V test lamp between the switch side of the coil and 
ground. Remove the high tension lead from the side coil. Turn the 
ignition switch on and jiggle the key. 

Did the lamp light? (yes /no) ==> n. 



Do you have an ohmmeter? 

Do you know how to use an ohmmeter? 
Do you know where the ignition-coil is? 



(yes/no) ==> y. 
(yes/no) ==> y. 
(yes/no) ==> y. 



Check the ignition coil secondary side resistance. 

Do you need further explanation? (yes/no) ==> y. 



Switch ohmmeter to high scale, connect one test lead to the 
distributor cap end of the coil secondary cable, connect the other test 
lead to the distributor terminal of the coil. 

Is the reading between 4K and 8K ohm? (yes /no) ==> n. 



MOST LIKELY DIAGNOSIS LIST: 



LESS LIKELY DIAGNOSIS LIST: 

defective(coil_secondary_resistance) 

defective(ignition_switch) 



yes 



CONSULTATION #5: 



>api 

Arity /Prolog Interpreter Version 4.0 
Copyright (c) 1986 Arity Corporation 
?- [global]. 

VEHICLE DIAGNOSIS EXPERT SYSTEM IMPLEMENTATION 

Please enter “diagnosis" to start the consultation. 

yes 

?-diagnosis. 

1: Does the engine start at all? 

2: Does the engine run poorly? 

Give numbers of questions whose answer is yes. [1.2]. 

I found a contradiction! 

Check and repeat your answer 
1: Does the engine start at all? 

2: Does the engine run poorly? 

Give numbers of questions whose answer is yes. [2], 

1 : Do you have a hard starting problem? 

2: Do you have a rough idle? 

3: Do you have stalling? 

4: Does the engine die at high speed? 

Give numbers of questions whose answer is yes. [1,2, 4]. 

1: Do you have hesitation (on acceleration from a standing stop)? 

2: Do you have poor pickup? 

3: Do you have lack of power? 

4: Do you have backfire through the carburetor? 

Give numbers of questions whose answer is yes. [2], 

1: Do you have backfire through the exhaust? 

2: Do you have blue exhaust gases? 

3: Do you have black exhaust gases? 

4: Do you have running on (after the ignition is shut off)? 

Give numbers of questions whose answer is yes.[ ]. 



1: Is it susceptible to moisture? 

2: Does the engine misfire under load? 

3: Does the engine misfire at speed? 

4: Does the engine misfire at idle speed? 

Give numbers of questions whose answer is yes. [3]. 



*** IGNITION SECTION *** 



Did you hear a sound like a detonation? 

Do you observe a high level of moisture in the 
atmosphere? 

Have you washed the car recently? 

Do you have a voltmeter? 

Do you know how to use a voltmeter? 



(yes/no) ==> n. 

(yes/no) ==> n. 
(yes/no) ==> n. 
(yes /no) ==> y. 
(yes /no) ==> y. 



Check the ignition coil secondary side resistance. 

Do you need further explanation? (yes /no) ==> y. 



Switch ohmmeter to high scale, connect one test lead to the 
distributor cap end of the coil secondary cable, connect the other test 
lead to the distributor terminal of the coil. 

Is the reading between 4K and 8K ohm? (yes/no) ==> n. 



MOST LIKELY DIAGNOSIS LIST: 



LESS LIKELY DIAGNOSIS LIST: 

defective(coil_secondary_resistance) 



yes 

?. 
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